home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Util / virus / xvslibrary.lha / xvs / Install < prev    next >
Text File  |  2004-01-15  |  6KB  |  201 lines
  1. ; $VER: Installation script for XVS 1.3 (5. December 2002)
  2. ; © David Crawford
  3. ; Created with GoldED 6.2
  4.  
  5. ; nifty graphics
  6. (if (>= #version 44)
  7.     (    
  8.         (effect "center" "radial" $FF0000 $7733AA)
  9.     ))
  10.  
  11. ; Languages Area, will make any translations that are needed easier to do.
  12. ; English
  13. (set #msg-installmode "Choose the installation mode:")
  14. (set #msg-welcome     "XVS library is central for several popular Amiga Virus Hunter/Killers, Including: \nVirusChecker \nVirusZ\nVirusExecutor")
  15. (set #msg-openinfo    "\n\nXVS has been installed, but...\n\nWould you like to contact the author of XVS or visit Virus Help Denmark online?\n(Note: OpenURL is required)")
  16. (set #msg-exit        "\n\n\n\n\n\nThe latest version of the XVS Library has been installed in Sys:Libs/")
  17. (set #msg-remove      "\n\n\nReally remove XVS Library? \n XVS protects from viral infection!")
  18. (set #msg-yes         "Yes")
  19. (set #msg-no          "No")
  20. (set #msg-delhelp     "This is your last chance to keep this VITAL Library!!!")
  21. (set #msg-delete      "LIBS:XVS.library")
  22. (set #msg-delprompt   "\n\nReally Delete XVS.library?")
  23. (set #msg-delconfirm  "\n\nLast Chance!")
  24. (set #msg-delcomplete "\n\nUninstallation completed.")
  25. (set #msg-delexit     "XVS Library successfully removed.")
  26. (set #msg-sendmail    "\n\n Would you like to send a quick message to the XVS team?")
  27. (set #msg-notnow      "Not at this time.")
  28. (set #msg-visit       "\n\nVisit VirusHelp Denmark on the web?")
  29. (set #msg-browser     "\n\nPointing your browser to www.vht-dk.dk at this time. You may proceed and exit installer, or switch screens.")
  30. (set #msg-visitdone   "\n\n\nThe Virus Help Denmark URL has been sent to your browser.\n\nRemember to bookmark Virus Help Denmark!")
  31. (set #msg-novisit     "\n\n\n\n\n\nBrowse to Virus Help Denmark for the latest information on XVS, Amiga Virii, and Virus Killing Software!")
  32. (set #msg-install     "Install")
  33. (set #msg-quickinstall "Quick Install")
  34. (set #msg-uninstall   "Uninstall")
  35. (set #msg-modehelp
  36.      (cat
  37.                       "\n                    Install or Uninstall? \n\n\nChoose Install to install or update XVS.library on your system."
  38.                       "\n\nChoose Quick Install to simply copy the XVS library to libs without any extra options."
  39.                       " \n\n Choose Uninstall if you would like to remove XVS.library from your system.  However, you are warned that if you remove XVS.library"
  40.                       " from your system that you will be removing a vital library for protecting your Amiga from virii!"
  41.         )
  42.       )
  43. (set #msg-openurl     "\n\nSelect YES if you have OpenURL installed on your system and NO if you do not.\n\n\nOpenURL is a system of passing URL's from one application to another for AmigaOS.")
  44. (set #msg-vhtdk       "\n\nIf you select YES, your browser will open directed to www.vht-dk.dk, or the Virus Help Denmark website.  It is likely that your screen will change to your Browser screen or Workbench.  XVS has already been installed on your system, and this portion is purely optional.")
  45. (set #msg-abort       "Incorrect OS version (software requires OS 2.04 or better )!")
  46. (set #msg-ioerr       "An error has occurred during installation. Please check the log file to understand the error.")
  47. ;;;;;;;;;;;;;-------------------;;;;;;;;;;;;;;;
  48.  
  49. ; check if we are running under correct OS
  50. (set #version (/ @installer-version 65536))
  51. (if (< (/ (getversion) 65536) 37) ;version 37.175 == os2.04
  52.     (
  53.         (abort #msg-abort)
  54.     )
  55. )
  56. ; error handling
  57. (onerror
  58.     (if (> @ioerr 0)
  59.         (
  60.             (message
  61.                 (#msg-ioerr)
  62.             )
  63.         )
  64.     )
  65.     (exit (quiet))
  66. )
  67.  
  68. ;main
  69. (procedure MAIN
  70.  
  71.   (set #installmode
  72.     (askchoice
  73.  
  74.         (prompt #msg-installmode)
  75.  
  76.         (help #msg-modehelp)
  77.  
  78.         (choices
  79.  
  80.             #msg-install
  81.  
  82.             #msg-quickinstall
  83.  
  84.             #msg-uninstall
  85.         )
  86.  
  87.         (default 0)
  88.     )
  89.   )
  90.   ;--
  91.   (if (= #installmode 0)
  92.     ; normal installation
  93.     (
  94.         (welcome #msg-welcome)
  95.         (copylib
  96.             (source "libs/xvs.library")
  97.             (dest "Sys:Libs")
  98.             (optional "fail")
  99.         )
  100.         (set #openinfo
  101.             (askbool
  102.                 (prompt #msg-openinfo)
  103.                 (help #msg-openurl)
  104.                 (choices
  105.  
  106.                     #msg-yes
  107.                     #msg-no
  108.                 )
  109.                 (default 1)
  110.             )
  111.         )
  112.  
  113.         (if (= #openinfo 1)
  114.            (WEBSTUFF)
  115.         )
  116.  
  117.       )
  118.   )
  119.  
  120.   (if (= #installmode 1)  ;quick
  121.     (
  122.         (copylib
  123.             (source "libs/xvs.library")
  124.             (dest "Sys:Libs")
  125.             (optional "fail")
  126.         )
  127.  
  128.         (exit #msg-exit (quiet))
  129.     )
  130.  
  131.   )
  132.  
  133.   (if (= installmode 2)  ;uninstall
  134.     (
  135.         (message #msg-remove)
  136.         (delete #msg-delete
  137.              (help #msg-delhelp)
  138.              (prompt #msg-delprompt)
  139.              (confirm #msg-delconfirm)
  140.         )
  141.  
  142.         (message #msg-delcomplete)
  143.         (exit #msg-delexit (quiet))
  144.     )
  145.  
  146.   )
  147. )
  148. ;--end main
  149.  
  150. (procedure WEBSTUFF
  151.         ;-- Set Up of email area
  152.         (set #sendmail
  153.             (askchoice
  154.                 (prompt #msg-sendmail)
  155.                 (help @askchoice-help)
  156.                 (choices
  157.  
  158.                     #msg-notnow        ;-- 0
  159.                     "Georg Hoermann"   ;-- 1
  160.                 )
  161.                 (default 0)
  162.             )
  163.         )
  164.  
  165.         (if (= #sendmail 1)
  166.           (
  167.               (run "openurl mailto:ghoermann@gmx.de"
  168.                   (safe)
  169.               )
  170.           )
  171.         )
  172.  
  173.         (set #visit
  174.             (askbool
  175.                 (prompt #msg-visit)
  176.                 (help #msg-vhtdk)
  177.                 (choices
  178.  
  179.                     #msg-yes
  180.                     #msg-no
  181.                 )
  182.                 (default 1)
  183.             )
  184.         )
  185.  
  186.         (if (= #visit 1)
  187.             (
  188.               (message #msg-browser)
  189.               (run "openurl http://www.vht-dk.dk"
  190.                    (safe)
  191.               )
  192.             )
  193.         )
  194.  
  195.  ; --- end email area ---
  196. )
  197.  
  198. (MAIN)
  199. (exit #msg-exit (quiet))
  200.  
  201.